%9070
(18-03-2002)
(CYCLE DE FILETAGE A LA FRAISE)

(CALCUL DU RAYON OUTIL MAXI)
(L901 RAYON OUTIL THEORIQUE)
(L903 TOLERANCE RAYON)
N10 L920=L901+L903/1000

(CALCUL PT APPROCHE SUR Z - PT2)
    L921=L910/4

(CALCUL DE LA LONGUEUR FILETEE)
    L922=L913-L914-L910
    G79 L922<0 N20
    L922=L922/L910
    L922=TL922+1
    L922=L922*L910
    G79 N30
N20 L922=L910

(CALCUL DU RAYON FILETAGE)
 N30 L923=L911/2-L912

(CALCUL PT APPROCHE/SORTIE SUR X - PT3 PT6)
    L924=L923+L920
    L925=L924/2-L920

(CALCUL PT APPROCHE/SORTIE SUR  Y - PT3 PT6 PT7)
    L926=L924/2

(CALCUL AVANCE CORRIGEE)
    L927=L901/1000
    L928=L926-L927
    L928=L915*L928/L926
    L929=L923-L927
    L929=L915*L929/L923

(CALCUL RETOUR EBAUCHE SUR Z)
    L930=L921+L922

(PROGRAMME USINAGE)
    G00 G91 Z-L921 (PT2)
    G41 XL925 Y-L926 (PT3)
    G03 XL926 YL926 ZL921 RL926 KL910 FL928 (PT4)
    G03 X0 Y0 ZL922 I-L923 J0 KL910 FL929 (PT5)
    G03 X-L926 YL926 ZL921 RL926 KL910 FL928 (PT6)
    G00 G40 X-L925 Y-L926 (PT7)

(OPTION EBAUCHE)
    G79 L912>0 N40
    G79 N50
N40 L912=0
    G00 Z-L930
    G79 N10

(SORTIE PROGRAMME)
N50 G90

